home *** CD-ROM | disk | FTP | other *** search
/ CD Exchange / CD Exchange - Volume 1.iso / d.t.p / utils / propage / donsgenies / donsgenies.lha / Don'sGenies / BoxToFront.pprx < prev    next >
Text File  |  1993-05-25  |  2KB  |  80 lines
  1. /* Box to Front
  2. Select a box by name or number and bring it to the front. Useful in complex layouts where there are several boxes on top of each other.
  3. Written by Don Cox  Not Public Domain. All rights reserved. */
  4.  
  5. trace n
  6. signal on error
  7. signal on syntax
  8. call ppm_AutoUpdate(0)
  9. cr = "0a"x
  10.  
  11. address command
  12. call SafeEndEdit.rexx()
  13.  
  14. call ppm_ShowStatus("Making List of Boxes ...")
  15. thispage = ppm_CurrentPage()
  16. totalboxes = ppm_NumBoxes(thispage)
  17. list = ""
  18. box = ppm_PageFirstBox(thispage)
  19. do i = 1 to totalboxes
  20.     number = right(ppm_BoxNum(box),4," ")    
  21.     info = ppm_GetBoxInfo(box)
  22.     boxtype = word(info,1)
  23.     boxname = ppm_GetBoxName(box)
  24.     select
  25.         when upper(boxtype) = "TEXT" then do
  26.             boxtext = ppm_GetBoxText(box,0)
  27.             shorttext = substr(boxtext,1,15)
  28.             if boxname = "" then boxname = shorttext
  29.             end
  30.         when upper(boxtype) = "BITMAP" then do
  31.             filename = word(info,5)
  32.             filename = substr(filename, lastpos("/",filename)+1)
  33.             if boxname = "" then boxname = filename
  34.             end
  35.         when upper(boxtype) = "EPSF" then do
  36.             filename = word(info,3)
  37.             filename = substr(filename, lastpos("/",filename)+1)
  38.             if boxname = "" then boxname = filename
  39.             end
  40.         when upper(boxtype) = "CLIP" then do
  41.             objects = "Clip, "||word(info,2)||" objects"
  42.             if boxname = "" then boxname = objects
  43.             end
  44.         when upper(boxtype) = "STRUCTURED" then do
  45.             objects = "Struct., "||word(info,2)||" objects"
  46.             if word(info,2)=1 then objects = "Struct., 1 object"
  47.             if boxname = "" then boxname = objects
  48.             end
  49.         when upper(boxtype) = "EMPTY" then do
  50.            if boxname = "" then boxname = "Empty"
  51.            end
  52.         otherwise boxname = "Unknown type of box"
  53.     end
  54.     boxtype = substr(boxtype,1,1)
  55.     list = list||number" "boxtype" "boxname||cr
  56.     box = ppm_PageNextBox(box)
  57.     end
  58.  
  59. call ppm_ClearStatus()
  60. chosen = ppm_SelectFromList("Select Box...",35,18,0,list)
  61. box = ppm_SelectBox(word(chosen,1))
  62. call ppm_BoxToFront(box)
  63. exit_msg()
  64.  
  65. error:
  66. syntax:
  67.     do
  68.     exit_msg("Genie failed due to error: "errortext(rc))
  69.     end
  70.  
  71. exit_msg:
  72.     do
  73.     parse arg message
  74.     if message ~= "" then
  75.     call ppm_Inform(1,message)
  76.     call ppm_ClearStatus()
  77.     call ppm_AutoUpdate(1)
  78.     exit
  79.     end
  80.